1 fl=20:fr=250:fd=230:fu=20:v=53248:poke v+21,4:poke2042,13
:for n=0to62:readq:poke832+n,q:next
2 print chr$(147):ix=150:iy=230:poke v+4,ix:poke v+5,iy:for a=1to90:next a:poke 1056,198:poke1135,199
3 poke1137,200: poke1095,199:poke1097,200:ps=0:sp=1044:sc =55316:gt=0:wn=0
4 get a$:if a$="H" then if(ix-10 >= fl) then ix=ix-10:poke v+4,ix:poke v+5,iy:if iy=60 and ix>230 then wn=1:goto13
5 if a$="K" then if(ix+10 <= fr) then ix=ix+10:poke v+4,ix:poke v+5,iy:if iy=60 and ix>230 then wn=1:goto13
6 if a$="U" then if(iy-10>=fu)then iy=iy-10:poke v+4,ix:poke v+5,iy:if iy=60 and ix>230 then wn=1:goto13
7 if a$="N" then if(iy+10<=fd)then iy=iy+10:poke v+4,ix:poke v+5,iy:if iy=60 and ix>230 then wn=1:goto13 
8 if gt = 0 then ps=int(rnd(1)*40) : sp=1044+ps : sc=55316+ps
9 poke sc+(40*gt),2: poke sp+(gt*40),81 : for a = 1 to 50 : next a: cl=peek(53279) : if cl<>0 then goto 13
10 for a = 1 to 50 : next a: poke sp+(gt*40),96
11 if gt< 24 then gt = gt+1 : goto 4
12 if gt= 24 then gt = 0: goto 4
13 if wn = 1 then print "SQUID HAS SUCCESSFULLY ESCAPED!! " : print "CONTINUE? Y/N"
14 if wn = 0 then print "SQUID WAS FRIED :( !! " : print "REPLAY? Y/N"

15 get b$ : if b$="Y" then goto 2
16 if b$="N" then print chr$(147) : new
17 goto 15
18 data 0,0,0,1,255,128,15,255,224,31,255,240,31,255,240,31,255,240,15,255,224,7,255,192
19 data 1,254,0,3,255,0,15,255,192,63,255,144,255,255,240,255,254,254,254,124,221
20 data 240,124,62,248,108,54,56,0,102
,20,0,162,0,0,0,0,0,0

